home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / fgl105c.zip / 13-05.C < prev    next >
Text File  |  1991-05-09  |  624b  |  28 lines
  1. main()
  2. {
  3.    int voice_array[61];
  4.    int i;
  5.    int volume;
  6.  
  7.    if (fg_testmode(9,0) == 0) {
  8.       printf("This program requires a PCjr or ");
  9.       printf("a Tandy 1000 system.\n");
  10.       exit();
  11.       }
  12.  
  13.    i = 0;
  14.  
  15.    for (volume = 1; volume <= 15; volume++) {
  16.       voice_array[i++] = 1;      /* use channel 1 */
  17.       voice_array[i++] = 500;    /* 500 Hz frequency */
  18.       voice_array[i++] = volume; /* variable volume */
  19.       voice_array[i++] = 16;     /* duration */
  20.       }
  21.    voice_array[i] = 0;
  22.  
  23.    fg_voices(voice_array,1);
  24.  
  25.    while(fg_playing())
  26.       printf("Still playing...\n");
  27. }
  28.